home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ ShellIconCache Count.xpl < prev    next >
Text File  |  2002-04-12  |  2KB  |  47 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="2"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Interface\Icons"
  5. "NAME"="Icon Cache: Size"
  6. "VERSION"="1.43"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Cache Size"
  9. "DESCRIPTION 1"="Every icon accessed by Windows is cached in the file 'ShellIconCache'. If this file exists, Windows reads the icons from the cache instead of searching for the actual files, which speeds up access time significantly, especially at bootup."
  10. "DESCRIPTION 2"="In certain cases a (too) small cache size leads to an incorrect display of some icons."
  11. "DESCRIPTION 3"="This setting specifies how many icons should be cached, the default value (also the minimum) is 500 icons, and theoretical maximum is 2000, but on some systems it is possible to increase this number up to 8000."
  12. "DESCRIPTION 4"="You need to restart your computer if you change this setting, and sometimes more than once, until the new icon cache 'catches on'. :("
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17. "COMMENT 2"="Thanks to Siegfried Burgstedt for his fix!"
  18. "COMMENT 3"="Thanks to CptSiskoX for his help!"
  19.  
  20.  
  21. sP="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Max Cached Icons"
  22. Sub Plugin_Initialize 
  23.  i=RegReadValue(sP)
  24.  if IsEmpty(i) then
  25.   SetUIElement 1,500 
  26.  else
  27.   SetUIElement 1,i
  28.  end if
  29. End Sub
  30.  
  31. Sub Plugin_CheckData(ElementIndex)
  32. End Sub
  33.  
  34. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  35.  i=GetUIElement(1)
  36.  
  37.  if len(i)=0 or IsNumeric(i)=false then
  38.   Call MsgError("Unable to update setting - please enter a value between 500 and 8000!")
  39.  else
  40.   Call RegWriteValue(sP,i,1)
  41.   Restart
  42.  end if
  43. End Sub
  44.  
  45. Sub Plugin_Terminate 
  46. End Sub
  47.